<%@LANGUAGE="VBSCRIPT" Codepage = 65001%>
<% Option Explicit %>

<!--#include file="includes/cb_adovbs_sys.inc"-->
<!--#include file="includes/generally_sys.asp"-->
<!--#include file="includes/translate.asp"-->
<!--#include file="includes/gwm_user_menu_dhx.asp"-->
<!--#include file="includes/ch_pw_inc.asp"-->

<%
'Codepage einstellen
Session.CodePage = 65001'Unicode, 8-bit encoding
Response.CharSet = "utf-8"

'Sprache -----------------------------------------------------------------
Dim i_lng
i_lng = Request("lng")
If IsEmpty(i_lng) or IsNull(i_lng) Then
	i_lng = Session("ses_i_language") 
end if
Session("ses_i_language")=i_lng'0=keine auswahl 1=german 2=english
'--------------------------------------------------------------------------
'wie oft wurde angemeldet
'zählt mit wie oft mit einer session (browserfenster) angemeldet wurde
Dim i_session
i_session = Session("ses_i")
Session("ses_i") = i_session + 1
i_session = Session("ses_i")

Dim str_title
str_title = Session("ses_title")
'2009 05 01 Datumstrennzeichen
Const Con_date_trenn = "-"

Dim iu
Dim ig
iu = Session("ses_iu")
ig = Session("ses_ig")
'Pruefen, ob der User eingeloggt ist
If Session("ses_iu") = 0 and Session("ses_ig") = 0 Then
   'User ist nicht eingeloggt, daher zu Login Seite schicken
   Response.Redirect "session_end.asp"
   Response.End
End If
'Response.Write("iu: " & iu & "<br>")
'----------------------------------------------------------------------
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete_sys 

'2012 03 04 variable die die Function fc_value_string umschaltet (für dyn. Übersetzung)
'1= der Text wird angezeigt
'2= der Variablenname wird angezeigt
'x_translate_function
Dim sql_tmp
Dim rst_tmp
sql_tmp = "SELECT lng_k_function FROM x_translate_function WHERE id_k_lng = '1'"
'Response.Write(SQL)
'Response.End()

Set rst_tmp = Server.CreateObject("ADODB.Recordset")
rst_tmp.Open sql_tmp, objConn, adOpenStatic, adLockReadOnly   
    If Not rst_tmp.EOF Then
        Session("ses_i_fc_value_string")= rst_tmp.Fields("lng_k_function").Value
    End if
	rst_tmp.Close
set rst_tmp = Nothing

If IsNull(Session("ses_i_fc_value_string")) or IsEmpty(Session("ses_i_fc_value_string")) or Len(Session("ses_i_fc_value_string"))=0 Then
	Session("ses_i_fc_value_string") = 1
end if

'falls die log var schon leer ist
'iu = Request("iu")
'ig = Request("ig")
'2009 05 01 session log
iu = Session("ses_iu")
ig = Session("ses_ig")
If iu = "" or iu = 0 Then'die echte log var wird überprüft
	iu = 0
	ig = 0
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/vorlage_std_all.dwt" codeOutsideHTMLIsLocked="false" -->
<!-- ----------------------------------------------------------- -->
<!--       Beratung, Projektierung, Webdesign und Umsetzung      -->
<!--                     www.on-designs.com                      -->
<!-- Christian Freidl, Gärtnerweg 6, 8073 Neuseiersberg, Austria -->
<!-- ----------------------------------------------------------- -->
<!-- ----------------------------------------------------------- -->
<!--        Beratung, Projektierung, ASP-Programmierung          -->
<!--                     www.bribase.com                         -->
<!--                    Peter Brislinger,                        -->
<!--        Paul-Anton-Keller-Gasse 23, 8073 Feldkirchen         -->
<!-- ----------------------------------------------------------- -->
<head>
<% CALL writeGwmCustomHeaders %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title><%= str_title %>- Home</title>
<!-- InstanceEndEditable -->
<LINK REL="SHORTCUT ICON" HREF="http://www.growmetry.com/favicon.ico">
<meta name="author" content="Programming by Peter Brislinger, http://www.bribase.com | Web & Interfacedesign by Christian Freidl, http://www.on-designs.com">
<meta name="robots" content="noindex, nofollow">
<meta name="audience" content="all">
<style type="text/css">
<!--
A:link, A:visited, A:active {text-decoration: none; color:#333333}
A:hover {text-decoration: underline}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	SCROLLBAR-FACE-COLOR: #ffffff; 
	SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
	SCROLLBAR-SHADOW-COLOR: #cccccc;
	SCROLLBAR-3DLIGHT-COLOR: #cccccc;
	SCROLLBAR-ARROW-COLOR: #666666;
	SCROLLBAR-TRACK-COLOR: #ffffff;
	SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
-->
</style>
<link href="../css/growmetry.css" rel="stylesheet" type="text/css" />
<!-- start change password includes -->
<link type='text/css' href='css/popup.css' rel='stylesheet' />
<link type='text/css' href='css/ch_pw.css' rel='stylesheet' />
<script type="text/javascript" src="js/jquery.js"></script>
<script type='text/javascript' src='js/jquery.simplemodal-1.4.4.js'></script>
<script type='text/javascript' src='js/ch_pw.js'></script>
<script type='text/javascript' src='js/popup.js'></script>
<script type="text/javascript">
    window.onload = win_onload;
</script>
<!-- end change password includes -->


<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
<!--
.Stil1 {
	font-size: 12px;
	font-weight: bold;
}
.Stil7 {color: #818181}
.Stil8 {font-size: 10px}
.Stil9 {color: #000000}
-->
</style>
<%
	'include scripts for the menu
	CALL userMenuAddScripts
%>
<!-- InstanceEndEditable -->
</head>

<body>
<script type="text/javascript" src="includes/wz_tooltip.js"></script>
<script type="text/javascript" language="JavaScript">
function change_language(i)
{
//http://www.growmetry.com/APX_Translate/main_menu.asp
//var str_domain = "www.growmetry.com"
//var str_pathname = window.location.pathname;
//var str_ziel = str_domain && str_pathname;


var str_ziel = new String(window.location);

var p1 = get_page_params();
var p2 = get_page_params();

var i_language ="0";//default - 0=bedeutet ohne lng=x // 1=mit lng=x zb. .asp?lng=1
var i_asp="0";//default -1=bedeutet das in der url zum schluss nur mehr asp steht // 0=das in der url schon zusätzliche parameter stehen zb: .asp?btnsub=N oder .asp?lng=1

//überprüft ob schon ein sprachinfo in der url ist
	  if (p2['lng']) 
	  {
	  	//Do something
	  	i_language = 1
		//alert("NNNN");
	  }  
	  else
	  {
	  	i_language = 0   
	  }


//Überprüft ob es eine info in der URL gibt
	  var str_asp_default = "asp";
	  //var i_laenge = str_ziel.length;
	  //var str_last03 = new String((str_ziel[i_laenge-3] + str_ziel[i_laenge-2] + str_ziel[i_laenge-1]));
	  var str_last03 = str_ziel.substr((str_ziel.length)-3); //liefert die letzten drei zeichen
	  
	  if (str_last03 == str_asp_default)//german
	  {
		//default 1=bedeutet das in der url zum schluss nur mehr asp steht
		i_asp = 1;
	  }
	  else
	  {
		//default 0=das in der url schon zusätzliche parameter stehen zb: .asp?btnsub=N oder .asp?lng=1
		i_asp = 0;
	  }
	  

//alert("str_ziel: " + str_ziel);
//alert("str_last03: " + str_last03);
//alert("i: " + i);
//alert("i_language: " + i_language);	  
//alert("i_asp: " + i_asp);

//wenn in der url noch keine parameter sind und die sprachinfo auch fehlt
	  if (i_asp == "1" && i=="1" && i_language=="0")//german
	  {
			str_ziel = str_ziel + "?lng=1"  
	  }
	  if (i_asp == "1" && i=="2" && i_language=="0")//english
	  {
			str_ziel = str_ziel + "?lng=2"  
	  }

//wenn in der url schon parameter sind und die sprachinfo auch fehlt
	  if (i_asp == "0" && i=="1" && i_language=="0")//german
	  {
			str_ziel = str_ziel + "&lng=1"  
	  }
	  if (i_asp == "0" && i=="2" && i_language=="0")//english
	  {
			str_ziel = str_ziel + "&lng=2"  
	  }

//wird nur ausgeführt wenn schon eine sprachinfo in der url ist
	  if (i == "1")//german
	  {
		  str_ziel = SuchenUndErsetzen(str_ziel, "lng=2", "lng=1")
	  } 
	  
	  if (i == "2")//English
	  {
		  str_ziel = SuchenUndErsetzen(str_ziel, "lng=1", "lng=2")
	  } 


	window.location.href = str_ziel;
}

function SuchenUndErsetzen(QuellText, SuchText, ErsatzText)
	  {   // Erstellt von Ralf Pfeifer
		  // Fehlerpruefung
		  if ((QuellText == null) || (SuchText == null))           { return null; }
		  if ((QuellText.length == 0) || (SuchText.length == 0))   { return QuellText; }

		  // Kein ErsatzText ?
		  if ((ErsatzText == null) || (ErsatzText.length == 0))    { ErsatzText = ""; }

		  var LaengeSuchText = SuchText.length;
		  var LaengeErsatzText = ErsatzText.length;
		  var Pos = QuellText.indexOf(SuchText, 0);

		  while (Pos >= 0)
		  {
			  QuellText = QuellText.substring(0, Pos) + ErsatzText + QuellText.substring(Pos + LaengeSuchText);
			  Pos = QuellText.indexOf(SuchText, Pos + LaengeErsatzText);
		  }
		  return QuellText;
	  } 


//sucht einen String innerhalb eines Strings (Andrey)
function get_page_params() 
{
       function unspace( qs_element ) {
               return qs_element.split( '+' ).join( ' ' );
       }
       var QueryString = new Array();
       QueryString["_"]="";
       if ( location.search.length > 1 ) {
               var qs_query = location.search.substring( 1, location.search.length );
               var qs_pairs = qs_query.split( '&' );
               for ( var qs_index = 0; qs_index < qs_pairs.length; qs_index++ ) {
                       var qs_element = qs_pairs[qs_index].split( '=' );
                       QueryString[qs_element[0]] = unspace( unescape( qs_element[1] ) );
               }
       }
       return QueryString;

}


</SCRIPT>  

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="backout">
<table width="950" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="479" valign="top" background="../App/images/standard/filler_vert.gif"><table width="950" border="0" cellpadding="0" cellspacing="0" class="<%= fc_value_string(Session("ses_i_language"), "var_glob_bitm_20") %>">
<tr>
<td width="25" height="90">&nbsp;</td>
<td width="900" height="90">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom"><div align="right" class="txtsm">
</div>
<div align="right">
<div align="right" class="txtsm"></div>
</div>

<div align="right"><span class="txtloginasgrey"><%=Session("ses_txt_logininfo_z01")%></span><span class="txtloginasred"><strong><%=Session("ses_str_User_name")%></strong></span>
<span class="txtloginasgrey"> <%= fc_value_string(Session("ses_i_language"), "var_glob_txt_1009") %> <a href="index.asp"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_02") %></a></span><br/>
<strong class="txtloginasgreen"><%=Session("ses_txt_logininfo_z02")%> </strong><br/>
<span class="txtloginasgrey"><%=Session("ses_txt_logininfo_z03")%></span><br/>
</div>
</td>
</tr>
</table>
</td>
<td width="25" height="90">&nbsp;</td>
</tr>
<tr>
<td width="25">&nbsp;</td><!-- InstanceBeginEditable name="Edit_navi" -->
<td width="900" align="left" class="navi">
	<table border="0" cellpadding="0" cellspacing="0" width="900">
		<td>
			<%
				'include menu object
				CALL userMenuWriteMenuObj("userMenu")
				CALL userMenuWriteInitScript("userMenu", objConn, getGroupByUser(objConn, Session("ses_iu")), Session("ses_i_language"))
			%>    		
		</td>
		<td align="right">
			<div style="padding-right: 5px; ">
			<% CALL userMenuInsertPagePath(objConn, getGroupByUser(objConn, Session("ses_iu")), Session("ses_i_language"), "main_menu.asp") %>
		    </div>
		</td>
	</table>  
</td>
        <!-- InstanceEndEditable -->
<td width="25">&nbsp;</td>
</tr>
<tr>
<td width="25">&nbsp;</td><!-- InstanceBeginEditable name="Edit_Content" -->
<td width="900" height="450" align="left" valign="top" class="<%= fc_value_string(Session("ses_i_language"), "var_glob_bitm_22") %>"><table width="900" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="278" height="90">
</td>
<td width="149" height="90">&nbsp;</td>
<td width="149" height="90" align="center" valign="middle">&nbsp;</td>
<td width="149" height="90">&nbsp;</td>
<td width="149" height="90">&nbsp;</td>
<td width="26" height="90">&nbsp;</td>
</tr>
<tr>
<td width="278" height="100%" valign="top">
<div align="right">

<%
'das Menü auf der linken seite
'If 4 > 5 Then
If 4 < 5 Then

Dim lng_fk_user_group_ses
Dim i_report_01
Dim i_report_02

'usergroup
'Session("ses_i_usergroup")
'1	SuperVisor	SV 	Admin All
'2	Head Org	HO 	Head Org Admin
'3	Org			OR	Org Admin oder Abteilungsadmin
'4	Trainer		TR	Trainer Admin
'5	Athlete		AT	Athlet Admin
lng_fk_user_group_ses = Session("ses_i_usergroup")
'Response.Write("lng_fk_user_group_ses: " & lng_fk_user_group_ses & "<br>")

'1 >> Dummy
'0 >> no dummy
Dim i_dummy_head_org
i_dummy_head_org=Session("ses_i_dummy_head_org")
'Response.Write("i_dummy_head_org: " & i_dummy_head_org & "<br>")

'userprofil
Dim str_target_userprofil'zielseite	
Dim str_titel_userprofil
Dim str_caption_userprofil

'einladung
Dim str_target_invitation
Dim str_titel_invitation
Dim str_caption_invitation

'übersicht einladungen
Dim str_target_invitation_ov
Dim str_titel_invitation_ov
Dim str_caption_invitation_ov

'übersicht
Dim str_target_overview	
Dim str_titel_overview
Dim str_caption_overview

'statusreport	
Dim str_target_status_rpt
Dim str_titel_status_rpt
Dim str_caption_status_rpt

'adminreport	
Dim str_target_admin_rpt
Dim str_titel_admin_rpt
Dim str_caption_admin_rpt

'messdaten	
Dim str_target_measured
Dim str_titel_measured
Dim str_caption_measured

'berechnung (grafik)	
Dim str_target_graphic
Dim str_titel_graphic
Dim str_caption_graphic


Dim i_height'zeilenhöhe
i_height = 5

'Response.Write("Session(ses_i_usergroup): " & Session("ses_i_usergroup") & "<br>")
'Response.Write("i_dummy_head_org: " & i_dummy_head_org & "<br>")
'Response.Write("iu: " & iu & "<br>")
''Response.Write("str_ziel: " & str_ziel & "<br>")
'Response.Write("i_report_01: " & i_report_01 & "<br>")
'Typ A ------------------------------------------------------------------------------
'Admin einer Head Org	
If Cint(lng_fk_user_group_ses) = 2 and Cint(iu) > 0 Then 

	str_target_userprofil = "head_org_user_admin_detail.asp"
	str_titel_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_23")'"Benutzer-Profil bearbeiten" >>> Hints
	str_caption_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_13")'"Benutzer-Profil" >>> sichtbarer Menüpunkt
	
	str_target_invitation = "org_admin_detail.asp?btnSub=N"
	str_titel_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_24")'"Einladungsprofil Abteilungen bearbeiten"
	str_caption_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_19")'"Einladung Abteilungen"

	str_target_invitation_ov = "org_admin_all.asp"
	str_titel_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_25")'"Übersicht Abteilungen"
	str_caption_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_25")'"Übersicht Abteilungen"

	str_target_overview = "trainer_admin_all.asp"
	str_titel_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"
	str_caption_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"

'status RPT	
	str_target_status_rpt = "admin_overview_status.asp"
	str_titel_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
	str_caption_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"

'admin RPT	
	str_target_admin_rpt = "admin_overview_id.asp"
	str_titel_admin_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_28")'"Admin-Report"
	str_caption_admin_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_28")'"Admin-Report"
end if

'Admin einer Abteilung Typ A
If Cint(lng_fk_user_group_ses) = 3 and Cint(iu) > 0 and i_dummy_head_org = 0 Then

	str_target_userprofil = "org_user_admin_detail.asp"
	str_titel_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_23")'"Benutzer-Profil bearbeiten"
	str_caption_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_13")
	
	'ok
	str_target_invitation = "trainer_admin_detail.asp?btnSub=N"
	str_titel_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_29")'"Einladung Trainer/Betreuer"
	str_caption_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_21")
	
	str_target_invitation_ov = "trainer_admin_all.asp"
	str_titel_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_20")'"Übersicht Trainer/Betreuer"
	str_caption_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_20")'"Übersicht Trainer/Betreuer"
	
'wäre gedacht für eine übersicht >> Übersicht Junior-Athleten
'		str_target_overview = "trainer_admin_all.asp"
'		str_titel_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"
'		str_caption_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"

	
'status RPT	
	str_target_status_rpt = "admin_overview_status.asp"
	str_titel_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
	str_caption_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
end if

'trainer
If Cint(lng_fk_user_group_ses) = 4 and Cint(iu) > 0 Then

	str_target_userprofil = "trainer_user_admin_detail.asp"
	str_titel_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_23")'"Benutzer-Profil bearbeiten"
	str_caption_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_13")
	
	str_target_invitation = "athlete_admin_detail.asp?btnSub=N"
	str_titel_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_22")'"Einladung Junior-Athleten"
	str_caption_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_22")'Einladung Junior-Athleten

	str_target_invitation_ov = "athlete_admin_all.asp"
	str_titel_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_31")'"Übersicht Trainer/Betreuer"
	str_caption_invitation_ov = fc_value_string(Session("ses_i_language"), "var_main_m_31")'"Übersicht Trainer/Betreuer"
	
'wäre gedacht für eine übersicht >> Übersicht Junior-Athleten
'		str_target_overview = "trainer_admin_all.asp"
'		str_titel_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"
'		str_caption_overview = fc_value_string(Session("ses_i_language"), "var_main_m_26")'"Übersicht Trainer"

'status RPT	
	str_target_status_rpt = "admin_overview_status.asp"
	str_titel_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
	str_caption_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
end if

'athleten
If Cint(lng_fk_user_group_ses) = 5 and Cint(iu) > 0 Then

'--------------------------------------------------------------------------
'2012 12 25 variable die die Schaltfläche zum anzeigen des Konsolidierten Wert anzeigt
'1= alles normal - alles wird abgespeichert
'2= der Konsolidierten Wert wird angezeigt - ohne das die Eingabe abgespeichert wird
'x_translate_function
Dim sql_tmp_konsolidierter_wert
Dim rst_tmp_konsolidierter_wert
Dim i_konsolidierter_wert
Dim str_konsolidierter_wert
sql_tmp_konsolidierter_wert = "SELECT lng_k_function FROM x_translate_function WHERE id_k_lng = '2'"
'Response.Write(sql_tmp_konsolidierter_wert)
'Response.End()

Set rst_tmp_konsolidierter_wert = Server.CreateObject("ADODB.Recordset")
rst_tmp_konsolidierter_wert.Open sql_tmp_konsolidierter_wert, objConn, adOpenStatic, adLockReadOnly   
 	If Not rst_tmp_konsolidierter_wert.EOF Then
        i_konsolidierter_wert= rst_tmp_konsolidierter_wert.Fields("lng_k_function").Value
    End if
	rst_tmp_konsolidierter_wert.Close
set rst_tmp_konsolidierter_wert = Nothing

If IsNull(i_konsolidierter_wert) or IsEmpty(i_konsolidierter_wert) or Len(i_konsolidierter_wert)=0 Then
	i_konsolidierter_wert = 1
end if

'Response.Write("i_konsolidierter_wert =" & i_konsolidierter_wert & "<br>")
'--------------------------------------------------------------------------
	str_target_userprofil = "athlete_user_admin_detail.asp"
	str_titel_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_23")'"Benutzer-Profil bearbeiten"
	str_caption_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_13")
	
	str_target_invitation = "athlete_authorizations.asp"
	str_titel_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_15")
	str_caption_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_15")
	
	If Cint(i_konsolidierter_wert) = 1 Then'athlete_measured_data.asp
		str_target_measured = "athlete_measured_data.asp"
	end if
	If Cint(i_konsolidierter_wert) = 2 Then'athlete_measured_data_01.asp >> für Hans
		str_target_measured = "athlete_measured_data_01.asp"
	end if
	
	str_titel_measured = fc_value_string(Session("ses_i_language"), "var_main_m_17")
	str_caption_measured = fc_value_string(Session("ses_i_language"), "var_main_m_17")
	

'2011 07 28 entscheidet ob der athlet eine info oder seine grafik sieht
'******************************************************************************
'20110 728
' überprüft ob der user auf eine Infoseite statt seiner Grafik sieht
' InputParameter:
' ID ... user id des athleten 
'******************************************************************************
'Function fc_i_route_info_site(ID)

	If fc_i_route_info_site(iu) = 1 Then
		str_target_graphic = "analysis-onhold.asp?lng_id=1"
	else
		str_target_graphic = "analysis.asp?lng=1"		
	end if
	'str_target_graphic = "analysis.asp?lng_id=1"
	
	str_titel_graphic = fc_value_string(Session("ses_i_language"), "var_main_m_18")
	str_caption_graphic = fc_value_string(Session("ses_i_language"), "var_main_m_18")
end if

'Typ B ---------------------------------------------------------------------------------
'Admin einer Org	
If Cint(lng_fk_user_group_ses) = 3 and Cint(iu) > 0 and Cint(i_dummy_head_org) = 1 Then
	str_target_userprofil = "org_user_admin_detail.asp"
	str_titel_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_23")'"Benutzer-Profil bearbeiten"
	str_caption_userprofil = fc_value_string(Session("ses_i_language"), "var_main_m_13")
	
	str_target_invitation = "trainer_admin_all.asp"
	str_titel_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_29")'"Einladungsprofil Trainer bearbeiten"
	str_caption_invitation = fc_value_string(Session("ses_i_language"), "var_main_m_21")

'status RPT	
	str_target_status_rpt = "admin_overview_status.asp"
	str_titel_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
	str_caption_status_rpt = fc_value_string(Session("ses_i_language"), "var_main_m_27")'"Status-Report"
end if
'usergroup
'Session("ses_i_usergroup")
'1	SuperVisor	SV 	Admin All
'2	Head Org	HO 	Head Org Admin
'3	Org			OR	Org Admin oder Abteilungsadmin
'4	Trainer		TR	Trainer Admin
'5	Athlete		AT	Athlet Admin


end if'If 4 > 5 Then
'deak xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'deak xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'deak xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

%>           
    
<table width="90%" height="100" border="0">
    <%If Cint(lng_fk_user_group_ses) > 1 and Cint(iu) > 0 Then %>
    <tr>
      <td height="<%=i_height%>" colspan="2" class="txtbasesm"><div align="left"><strong><%= fc_value_string(Session("ses_i_language"), "var_main_m_12") %></strong></div></td>
      </tr>
    <tr>
      <td width="6%" height="<%=i_height%>"><div align="left"></div></td>
      <td width="94%" height="<%=i_height%>"><div align="left"><a href="<%= str_target_userprofil %>" title="<%= str_titel_userprofil %>" class="txtbasesm"><%= str_caption_userprofil %></a></div></td>
      </tr>
    <tr>
      <td height="5"><div align="left"></div></td>
      <td height="5"><div align="left"></div></td>
      </tr>
    <% end if %>
    <tr>
      <td height="<%=i_height%>" colspan="2" class="txtbasesm"><div align="left"><strong><%= fc_value_string(Session("ses_i_language"), "var_main_m_05") %></strong></div></td>
      </tr>
<%If Cint(lng_fk_user_group_ses) > 1 and Cint(iu) > 0 Then'normalerweise einladungsseite ... ausser beim athleten ist es Authorization %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_invitation %>" title="<%= str_titel_invitation %>" class="txtbasesm"><%= str_caption_invitation %></a></div></td>
    </tr>
    
	<% If Session("ses_i_usergroup") < 5 Then'alle admin ... von Typ A bis Typ C %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_invitation_ov %>" title="<%= str_titel_invitation_ov %>" class="txtbasesm"><%= str_caption_invitation_ov %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>">&nbsp;</td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_overview %>" title="<%= str_titel_overview %>" class="txtbasesm"><%= str_caption_overview %></a></div></td>
      </tr>
    <% end if %>
    
    <% If i_report_01 = 1 Then %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_status_rpt %>" title="<%= str_titel_status_rpt %>" class="txtbasesm"><%= str_caption_status_rpt %></a></div></td>
      </tr>
    <% end if %>
    
    <% If i_report_02 = 1 Then %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_admin_rpt %>" title="<%= str_titel_admin_rpt %>" class="txtbasesm"><%= str_caption_admin_rpt %></a></div></td>
      </tr>
    <% end if %>
    
<% end if'If Cint(lng_fk_user_group_ses) > 1 and Cint(iu) > 0 Then %>

    <%If Cint(lng_fk_user_group_ses) = 1 and Cint(iu) > 0 Then %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="head_org_admin_all.asp" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_06") %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="org_admin_all.asp" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_07") %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="trainer_admin_all.asp" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_08") %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="contact_us_admin.asp" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_09") %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="admin_overview.asp" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_10") %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="create_new_account.asp" target="_blank" class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_11") %></a></div></td>
      </tr>
    <% end if %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"></div></td>
      </tr>
    <% If Session("ses_i_usergroup") = 5 Then %>
    <tr>
      <td height="<%=i_height%>" colspan="2" class="txtbasesm"><div align="left"><strong><%= fc_value_string(Session("ses_i_language"), "var_main_m_16") %></strong></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td><td height="15"><div align="left"><a href="<%= str_target_measured %>" title="<%= str_titel_measured %>" class="txtbasesm"><%= str_caption_measured %></a></div></td>
      </tr>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"><a href="<%= str_target_graphic %>"  target="_blank" class="txtbasesm"><%= str_caption_graphic %></a></div></td>
      </tr>
    <% end if %>
    <tr>
      <td height="<%=i_height%>"><div align="left"></div></td>
      <td height="<%=i_height%>"><div align="left"></div></td>
      </tr>
  </table>
  
</div></td>
<td width="149" height="360" align="left" valign="top"><div class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_01") %></div><br />
<br />
</td>
<td width="149" height="360" align="left" valign="top"><div class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_02") %></div></td>
<td width="149" height="360" align="left" valign="top"><div class="txtbasesm Stil7"><%= fc_value_string(Session("ses_i_language"), "var_main_m_03") %></div><br />
  <br />
</td>
<td width="149" height="360" align="left" valign="top"><div class="txtbasesm"><%= fc_value_string(Session("ses_i_language"), "var_main_m_04") %></div><br />
<br />
</td>
<td width="26" height="360">&nbsp;</td>
</tr>
</table>
</td>



        <!-- InstanceEndEditable -->
<td width="25" valign="top">&nbsp;</td>
</tr>
</table></td>
</tr>
<tr>
<td width="950" height="71" valign="bottom" background="<%= fc_value_string(Session("ses_i_language"), "var_glob_bitm_21") %>" class="txtlegal"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="230">&nbsp;</td>
<td height="24" align="left" valign="top" class="txtsm11">
<table width="100%" border="0">
<tr>
<td width="84%" height="35" valign="top"><span class="txtlegal"><a href="contact_us.asp"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_07") %></a> | <a href="about.asp"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_08") %></a> | <a href="terms.asp"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_09") %></a> | <a href="terms.asp#disclaimer"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_10") %></a> | <a href="terms.asp#privacy"><%= fc_value_string(Session("ses_i_language"), "var_glob_txt_11") %></a> | </span>
<% If Session("ses_i_language") = 2 Then %>
<input name="btnSublanguage" type="image" onClick="javascript: change_language(1)" value="lang01" src="../App/images/country/flag_germany.png" align="middle" width="16" height="16" vspace="1" border="0"/>
<% end if %>
<% If Session("ses_i_language") = 1 Then %>
<input name="btnSublanguage" type="image" onclick="javascript: change_language(2)" value="lang02" src="../App/images/country/flag_usa.png" align="middle" width="16" height="16" vspace="1" border="0"/>
<% end if %>     
</td>
<td width="5%" height="35" valign="top">&nbsp;</td>
<td width="5%" height="35" valign="top">&nbsp;</td>
<td width="6%" height="35" valign="top">&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>

<!-- start change password includes -->
<!--#include file="change_pw.html"-->
<script>
//    lng_k_email_inquiry = '1';
//    str_User_id = '1';
    lng_k_email_inquiry = '<%=Session("ses_lpw_lng_k_email_inquiry")%>';
    str_User_id = '<%=Session("ses_lpw_str_User_id")%>';
    jQuery(function ($) {
        $('.ch_pw').click(function (e) {
            ch_pw = $('#ch_pw-modal-content').modal({
                minWidth: 673, 
                minHeight: 200, 
                maxWidth: 673, 
                maxHeight: 242, 
                escClose: false,
                onClose: function(){
                    window.location.replace("index.asp");
                }
            });
            return false;
        });
    });
</script>
<!-- end change password includes -->
</body>
<!-- InstanceEnd --></html>
